home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aal.d64
/
proc.information
< prev
next >
Wrap
Text File
|
2007-02-28
|
554b
|
20 lines
0010 //
0020 ╨╥╧├ INFORMATION ├╠╧╙┼─
0030 ╒╙┼ SYSTEM
0040 ╒╙┼ TEXT
0050 ─╔═ TEXTOUT$ ╧╞ 99, SCREEN$ ╧╞ 1505
0060 GETSCREEN(SCREEN$)
0070 RESET
0080 ╫╚╔╠┼ (╬╧╘ EOT) ┴╬─ (╦┼┘$<>"^") ─╧
0090 ╔╞ ╨┼┼╦(653) ╘╚┼╬
0100 READLN(TEXTOUT$)
0110 ╨╥╔╬╘ TEXTOUT$
0120 ┼╠╙┼
0130 ╨╥╔╬╘ "PRESS SHIFT KEY TO READ OR ^ KEY TO END"+├╚╥$(145)
0140 ╨╥╔╬╘ ╙╨├$(39)+├╚╥$(145)
0150 ┼╬─╔╞
0160 ┼╬─╫╚╔╠┼
0170 ╔╬╨╒╘ ┴╘ 0,0,0: "HIT <RETURN> TO CONTINUE: ": TEXTOUT$ //IGNORE IT
0180 SETSCREEN(SCREEN$)
0190 ┼╬─╨╥╧├ INFORMATION